00100		TITLE PLAYIT
00120		INTERNAL D2A,SPEED
03500	; CALL SPEED(SPEED,NCHNS)
03600	; CALL D2A(NAME(1),SIZE)
03700	
04600	
04700	DAC←17
04800	D2A:	MOVSI	'XGP'	;DOWN TO XGPOK FOR XGP CONFLICT.
04809		DEVUSE	0,	
04818		HLRZ 	0,0
04827		CAIN	400000
04836		JRST	XGPOK
04845		INIT	16,17
04854		SIXBIT	.XGP.
04863		0
04872		JRA	16,2(16)
04900	XGPOK:	JUMP	0
05000		INIT	DAC,17
05100		SIXBIT 	.AD.
05200		0
05300		JRST	.-3
05400		MOVN 	0,@1(16)
05500		HRLM	0,OUT
05600		MOVE	0,0(16)
05700		SUBI	0,1
05800		HRRM	0,OUT
05900		OUTPUT	DAC,OUT
06000		RELEASE DAC,0
06010		RELEASE 16,
06100		JRA	16,2(16)
06200	OUT:	0
06300		3650	;CONO 204,3650
06400		4030	; "   424,4010
06500		0
06600		0
06700	SPEED:	0
06800		MOVE	@(16)
06900		DPB	[POINT 3,OUT+2,32]
07000		MOVE	@1(16)
07100		SUBI	1
07200		DPB	[POINT 2,OUT+2,26]
07300		JRA	16,2(16)
07400		END